﻿Namespace ViewModel

    Public Enum CommandGroup
        Admin = 1
        User = 2
        All = 0
    End Enum

    Public Class AuthorizedCommandViewModel
        Inherits CommandViewModel

        Public Sub New(ByVal name As String, ByVal group As CommandGroup, ByVal command As ICommand)
            MyBase.New(name, command)
            Me.Group = group
        End Sub

        Private _group As CommandGroup
        Public Property Group() As CommandGroup
            Get
                Return _group
            End Get
            Private Set(ByVal value As CommandGroup)
                _group = value
            End Set
        End Property

    End Class
End Namespace
